﻿Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub VersionToolStripMenuItem_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub TwitterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TwitterToolStripMenuItem.Click
        System.Diagnostics.Process.Start("http://adf.ly/YyabK")
    End Sub

    Private Sub SubmitABugToolStripMenuItem_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub AboutToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem1.Click
        MsgBox("You are using v1.0", 0 + 64, "Info")
    End Sub

    Private Sub SubmitABugToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles SubmitABugToolStripMenuItem.Click
        System.Diagnostics.Process.Start("http://adf.ly/Z62xV")
    End Sub

    Private Sub WhyAreAllTheLinksAdflyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WhyAreAllTheLinksAdflyToolStripMenuItem.Click
        MsgBox("It supports the program", 0 + 64, "Why are all the links adfly?")
    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        System.Diagnostics.Process.Start("http://adf.ly/Z62xV")
    End Sub
End Class
